﻿Public Class DossierMedical_CTRL
    Implements IDisposable

    Private _EDM As AniFormEntities
    Private _animal As Animaux


#Region "Cycle de vie du controleur DossierMedical"

    Public Sub New(ByVal EDM As AniFormEntities, ByVal animal As Animaux)

        _EDM = EDM
        _animal = animal

    End Sub

    Private disposedValue As Boolean = False        ' Pour détecter les appels redondants

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
            End If
            _EDM.Dispose()
            _animal = Nothing
        End If
        Me.disposedValue = True
    End Sub


    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub

#End Region


    Public ReadOnly Property nomAnimal() As String
        Get
            Return _animal.NomAnimal
        End Get
    End Property

    Public ReadOnly Property client() As String
        Get
            Return _animal.Clients.ToString
        End Get
    End Property

    Public ReadOnly Property consultation() As List(Of Consultations)
        Get
            Return _animal.consultation
        End Get
    End Property



End Class
